RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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16-Sep-1984 00:11:44 VAX-11 Bliss-32 V4.0-742 Pa 1 
12=808-1 382 90: bits DISKSVMSMASTER: CRUNOFF.SRCJDLE.BLI;1 ad (1) 


— 


MODULE DLE ( : 
IDENT = 'V04-000' 
*BLISS32C 


ADDRESSING _MODE (EXTERNAL=LONG, RELATIVE ,NONEXTERNAL=LONG_RELAT IVE) 
) 2 


BEGIN 


See EEA EE EERE AEEEEE 
\@ 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 

*® 

ed 

*® 

® 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 

i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
it TRANSFERRED. ® 
® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. ‘ 
® 

® 

* 

* 

* 

® 


!® DIGITAL ASSUMES NO RESPONSIB 


IBiLITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS 


NOT SUPPLIED BY DIGITAL. 


Le RRR REAR ERE AEE 
' 


'¢ 


44 
} FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
! ABSTRACT: Processes the .DISPLAY ELEMENTS command. 


; 
' 

i 

ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: May, 1979 
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18-56 “1984 00:11:44 — VAX=11_BLiss-32_v4.0-742 p 
Revision History Ve-$ep-1984 13:05:57 DISKSVMSMASTERSCRUNOFF-SRCIOLE.BLI;1°%* (25 


oe$ } peerre "Revision History' 

te : MODIFIED BY: 

a946 : ; 002 KFA00002 Ken Alden 07-Mar-1983 

0048 copyright dates. Changed require files to BLISS library. 
0050 1 !-- 


| 
| 
Global edit of all modules. Updated module names, idents, 


ee ——??.?2.221™€°0C DD” wm 


SKPSEP; | 


| 

| M “! | 

DLE ep-1984 VAX=11 Bliss-32 V4.0-742 Page 
/¥04-000 Module Level Declarations 12: _ 382 99: 08:37 DISKSVMSMASTER: CRUNOFF .SRCJDLE.BLI;1 ’ (33 

: ? 8 1 } XSBTTL "Module Level Declarations’ 

; 5 ; 1 ! TABLE OF CONTENTS: 

: § 4 1! 
13 2 

; 8 028 1! 

3 9 82 1 ! INCLUDE FILES: 

3 60 S 3 

; 61 059 «#1 

c © 0060 1 LIBRARY 'NXPORT: ~4 i ! XPORT Library 

5 o7 B08) : REQUIRE ‘REQ:RNODEF' ' RUNOFF sartant definitions | 

; 65 U 8138 1 ZIF DSRPLUS XTHEN 

: 6 uU 0194 1 L258 ARY ‘REQ:DPLLIB'; ! DSRPLUS BLISS Library 

$ 6 0195 1 XELSE 

: 68 9136 1 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 

3 69 0197 1 &FI 

: 70 0198 #1 

: 71 0199 1! 

tee 0200 1 ! MACROS 

Bg 0201 1! 

3 74 0 4 1 

g 75 020 7? 

3 76 0204 1 ! EQUATED SYMBOLS: 

Be a 0205 1! 

3 78 0206 1 

s 79 0207 1! 

3 80 0208 1 ! OWN STORAGE: 

; 81 0209 1! 

< 2 0210 1 

3 8 ai: ee 

3 84 bsi¢ 1 ! EXTERNAL REFERENCES: 

; 85 021 1! 

: 86 0214 1 EXTERNAL 

5 87 ast? 1 LSICHR : REF VECTOR, 

; 88 216 1 LSTCNT : REF COUNTED AIST. 

3 89 Bstf 1 LSTLCH : REF VECTOR, 

: 690 0218 1 LSTRCH REF VECTOR, 

3 91 0219 1 LSTLDD : REF VECTOR, | 

; a 0220 1 FSO1 : FIXED STRING, 

.. % 0221 1 IRA : FIXED_STRING; 

3 (9G Ogee 1 | 

7; (9S 0223 1 EXTERNAL ROUTINE | 

3 9 8s 4 1 GETDD, 

3 - 5 4 GETQC, 

3 98 0226 1 GETQS 

> 99 0227 1 RSKIPS, 

: 100 0228 1 


| 
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Module Level Declarations 
GLOBAL ROUTINE DLE (HANDLER) 


: NOVALUE = ! 


14 


> 
FUNCTIONAL DESCRIPTION: 


See the ABSTRACT for a general description. 


i FORMAL PARAMETERS: 


HANDLER is a dummy parameter passed for conformance only. 


i IMPLICIT INPUTS: 


i IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 
i COMPLETION CODES: None 


i SIDE EFFECTS: None 


BEGIN 

LOCAL 
DISPLAY_CODE, 
GETDD_RESULT, 
GETQC"RESULT: 


'Turn off bulletin 
LSTCHR C.LSTCNT CCL_INDEX] - 1) = 0; 


'Skip spaces and tabs before the first display descriptor. 
RSKIPS (IRA); 


'‘Attempt to get a character enclosed in quotes 
GETQC_RESULT = GETQC (); 


'Quit if an error occurred. 
4 -GETQC_RESULT EQL -2 


I 
THE 
RETURN; 


‘if soyening Quoted was specified, save it 
of -GETQC_RESULT NEQ =1 


N 
LSTLCH C.LSTCNT CCL_INDEX] = 1] = .GETQC_RESULT; 
'Now attempt to get a display descriptor. 
or 


'First skip a separat 
SKPSEP (IRA); 
riptor and save i 


'Now get a desc %. 
ASE Oy OKO EPLA CODE) FROM -1 TO +1 OF 


‘Quit if command was in error. 


(if any) so that this command takes precedence. 


s 
T 


=32 V4.0-742 Pa 
ER: CRUNOFF.SRCIJOLE.BLI;1 
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¥O6-000 Module Level Declarations 3 abs 19:5: D 


; 159 § RETURN; 
; 160 
: 182 : to nothing if nothi Lied 
; 'Do nothin nothing supplie 
3 188 90 : . . 
> 164 0291 
: 165 3 (+1): 
: 166 Q 'Save Speer ieter 
: 167 94 LSTLDD C.LSTCNT CCL_INDEX] = 1] = .DISPLAY_CODE; 
> 168 0295 
: 169 0 39 TES; 
: 170 8 9 
3s (if 9% 'Skip parameter separator, to try and get the next quoted character. 
3 76 8 mr SKPSEP (IRA); 
> 174 0301 'Now try to get another character enclosed in quotes. 
s 75 Bang GETQC_RESULT = GETQC (); 
3; 176 030 
s 77 0304 ‘Quit if an error, or nothing supplied 
> 178 0305 if (.GETQC_RESULT EQL -2) 
: 179 0306 3 OR (.GETQC_RESULT EQL -1) 
; 180 0307 2 N 
; «(181 0308 2 RETURN; 
; 136 0309 2 
; 0310 2 ‘User said something, so save it. 
> 184 0311 2 LSTRCH C.LSTCNT CCL_INDEX] - 1] = .GETQC_RESULT; 
: «(185 baig 2 
3; «186 031 1 END; ‘End of DLE 
TITLE OLE 
IDENT \V04-000\ 
eEXTRN LSTCHR, LSTCNT, LSTLCH 
-EXTRN LSTRCH, LSTLDD, FSO1 
“EXTRN IRA, GETDD, GETQC 
EXTRN GETQS, RSKIPS, SKPSEP 
-PSECT S$CODES,NOWRT,2 
007C 00000 eENTRY DLE, Save R2,R3,R4,R5,R6 
56 00000000G EF 9E 00002 MOVAB SKPSEP, R6 
55 00000000G EF 9E 00009 MOVAB GETQC, RS 
54 Sopp oi be EF 9E bn 19 MOVAB IRA, R4 
53 000000006 FF 9E 0001 MOVAB LSTCNT, R3 
af 4 C2 OOO1E SUBL2 #4, SP 
63 00 00021 OVL LSTCNT, RO 
50 04 AO DO 00024 OVL 4(RO), RO 
50 OO0000000GFF40 DE 00028 MOVAL a@LSTCHRCROJ, RO 
FC AO 04 000 CLRL -4(RQ) 
54 Dd 000 PUSHL R4 
00000000G_ EF 4 FB 000 CALLS #1, RSKIPS 
$3 0 FB 0003C CALLS #0, GETQC 
2 0 oO 8 F MOVL RO, GETQC_ RESULT 
FFFFFFFE BF 2 D4 O42 CMPL fOc_RESOLT, #-2 
C 3 0004 BEQL 
FFFFFFFF 8F 52 D1 00048 CMPL GETQC_RESULT, #-1 


V4.0-742 Pa 
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vde=000 


; Routine Size: 


187 
188 


Name 
SCODES 


File 


Module Level Declarations 


FC 


000000006 


O¢ FFFFFFFF 
000 001 


FC 


FFFFFFFE 
FFFFFFFF 


200 bytes, 


1 END 
0 ELUDOM 


FC 


Bytes 


: 


F 
F 
A 


oOo aouUNeoe ruvm 
7" FAOIUIOS OOOO 


run 
oooo 


Routine Base: 


04 
00000000GFF 


PUomoww Fo 
> Oe NS FVOOUW 


So 
Oo 


63 
04 
00000000GFF40 


04 
00000000GFF 


VMS PORN $ NUIOOVIO | 
RMOOWWINONOCO-FfMoo 


PSECT SUMMARY 


200 


NOVEC,NOWRT, 


Library Statistics 


ononovoVv7TvTl-— 
“DOWDVIOMOOwW 


covlVT70-90 —-990 T"OVOVTVTIVTO 
OMOOW WW OWWIomoos 


SOOoOCooooooooooo°oeofso 


04 


SCODES + 0000 


COooooooo°o°oo 
fo lolelelololeololoioilo) 
SNA AAAQOMNIUIIN 


Total 


Symbols 
Loaded 


OVUMOoonwonsenv -— 
— 
bad 


3$: 


4$: 


ODNWONSEw 


5$: 


'End of module 


Attributes 
EXE,NOSHR, 


Percent 


4 11:44 VAX=-11 Bliss-32 2 
4 Se eULEEH DISKSVMSMASTER: CRUNOFF.SRCIDLE.BLI;1 
BEQL «1 
MOVL LSTCNT, RO 
MOVL  4(RO) RO, 
MOVAL a@LSTLCHCRO 
MOVL GETQC_R WESoct, RO «ROD 
PUSHL 4 
CALLS #1, SKPSEP 
PUSHL SP 
CALLS #1, GETDD 
CASEL RO, #-1, # 
<WORD  5$-2$,-" 
43-28. 
3$-2$ 
RET 
MOVL LSTCNT, | RO 
MOVL  4(RO), R 
MOVAL aL ST, BDERO 
mOyvL DISPLAY. eODE, RO «ROD 
PUSHL  R4 
CALLS #1, SKPSEP 
CALLS #0, GETQC 
MOVL RO, GETQC_RESULT 
CMPL  GETQC_RESOLT, #2 
BEQL $ 
CMPL § GETQC_RESULT, #1 
BEQL $ 
MOVL LSTCNT, RO 
MOVL  4(RO), R 
MOVAL aL STRCHERO, RO 
MOVL  GETQC_RESULT, -4(RO) 
RET 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
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DLE 16-S¢ AX=-11 BLiss-32_v4.0-742 a 
vO4-000 Module Level Declarations 12-888: 1382 99: 3:37 DT SKSVMGHAS STER: tk UNOFF.SRCIJDLE. BLI;1 snes (4), 
; _$255$DUA28:(SYSLIBIXPORT.L32;1 9 25 :00.1 | 
Se TUASR:ERUNOF ESRC IDSRL TB. L 3251 1328 : ; 33 80:00:38 | 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:DLE/OBJ=OBJ$:DLE MSRC$:DLE/UPDATE=(ENH$:DLE) 

Size: 200 code + 0 data bytes 


; Run Time: 00: 9: | 
; Elapsed Time: 00:1 

3; Lines/CPU Min: 4701 

3 Lexemes/CPU-Min: 10119 

3 pee | Used: 49 pages 

5 a 


; Compilation Complete 


DIGITAL EQUIPMENT CORPORATION 
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